10 DEFINT A-Z:KEY OFF:DIM G(4602):PRINT "Loading...";
20 VSEG=VARSEG(G(0)):IF VSEG=0 THEN DEF SEG ELSE DEF SEG=VSEG
30 BLOAD "PEPPAPIG.PIC",VARPTR(G(0)):DEF SEG
40 CLS:SCREEN 2:LOCATE 1,1,0:PUT (320-G(0)/2,100-G(1)/2),G
50 PLAY "T100O3L8 GE16C16D<GL16GB>DFL8ECP64"
60 PLAY "T100O3L8 GE16C16D<GL16GB>DFL8ECP64"
70 WHILE INPUT$(1) = "": WEND
80 SCREEN 0: LOCATE ,,1: CLS
90 END
